home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / dobbs / v16n08 / xscheme.exe / XSPROTO.H < prev    next >
Encoding:
Text File  |  1991-05-13  |  8.2 KB  |  372 lines
  1. /* xsproto.h - prototypes for all of the external functions */
  2. /*    Copyright (c) 1991, by David Michael Betz
  3.     All Rights Reserved
  4.     Permission is granted for unrestricted non-commercial use    */
  5.  
  6. /* xscheme.c */
  7. void xlmain(int argc,char **argv);
  8. void xlload(void);
  9. void xlcontinue(void);
  10. void xlbreak(void);
  11. void xlcleanup(void);
  12. void xltoplevel(void);
  13. void xlfail(char *msg);
  14. void xlerror(char *msg,LVAL arg);
  15. void callerrorhandler(void);
  16. void xlabort(char *msg);
  17. void xlfatal(char *msg);
  18. void xlwrapup(void);
  19.  
  20. /* xscom.c */
  21. LVAL xlcompile(LVAL expr,LVAL ctenv);
  22. LVAL xlfunction(LVAL fun,LVAL fargs,LVAL body,LVAL ctenv);
  23. int length(LVAL list);
  24. void decode_procedure(LVAL fptr,LVAL fun);
  25. int decode_instruction(LVAL fptr,LVAL code,int lc,LVAL env);
  26.  
  27. /* xsdmem.c */
  28. LVAL cons(LVAL x,LVAL y);
  29. LVAL newframe(LVAL parent,int size);
  30. LVAL cvstring(char *str);
  31. LVAL cvsymbol(char *pname);
  32. LVAL cvfixnum(FIXTYPE n);
  33. LVAL cvflonum(FLOTYPE n);
  34. LVAL cvchar(int ch);
  35. LVAL cvclosure(LVAL code,LVAL env);
  36. LVAL cvpromise(LVAL code,LVAL env);
  37. LVAL cvmethod(LVAL code,LVAL class);
  38. LVAL cvsubr(int type,LVAL (*fcn)(),int offset);
  39. LVAL cvport(FILE *fp,int flags);
  40. LVAL newvector(int size);
  41. LVAL newstring(int size);
  42. LVAL newcode(int nlits);
  43. LVAL newcontinuation(int size);
  44. LVAL newobject(LVAL cls,int size);
  45. int nexpand(int size);
  46. int checkvmemory(int size);
  47. int makevmemory(int size);
  48. int vexpand(int size);
  49. NSEGMENT *newnsegment(unsigned int n);
  50. VSEGMENT *newvsegment(unsigned int n);
  51. void gc(void);
  52. void xlminit(unsigned int ssize);
  53.  
  54. /* xsftab.c */
  55. LVAL curinput(void);
  56. LVAL curoutput(void);
  57. int eq(LVAL arg1,LVAL arg2);
  58. int eqv(LVAL arg1,LVAL arg2);
  59. int equal(LVAL arg1,LVAL arg2);
  60. int vectorequal(LVAL v1,LVAL v2);
  61. LVAL xltoofew(void);
  62. void xltoomany(void);
  63. LVAL xlbadtype(LVAL val);
  64.  
  65. /* xsfun1.c */
  66. LVAL xcons(void);
  67. LVAL xcar(void);
  68. LVAL xicar(void);
  69. LVAL xcdr(void);
  70. LVAL xicdr(void);
  71. LVAL xcaar(void);
  72. LVAL xcadr(void);
  73. LVAL xcdar(void);
  74. LVAL xcddr(void);
  75. LVAL xcaaar(void);
  76. LVAL xcaadr(void);
  77. LVAL xcadar(void);
  78. LVAL xcaddr(void);
  79. LVAL xcdaar(void);
  80. LVAL xcdadr(void);
  81. LVAL xcddar(void);
  82. LVAL xcdddr(void);
  83. LVAL xcaaaar(void);
  84. LVAL xcaaadr(void);
  85. LVAL xcaadar(void);
  86. LVAL xcaaddr(void);
  87. LVAL xcadaar(void);
  88. LVAL xcadadr(void);
  89. LVAL xcaddar(void);
  90. LVAL xcadddr(void);
  91. LVAL xcdaaar(void);
  92. LVAL xcdaadr(void);
  93. LVAL xcdadar(void);
  94. LVAL xcdaddr(void);
  95. LVAL xcddaar(void);
  96. LVAL xcddadr(void);
  97. LVAL xcdddar(void);
  98. LVAL xcddddr(void);
  99. LVAL xsetcar(void);
  100. LVAL xisetcar(void);
  101. LVAL xsetcdr(void);
  102. LVAL xisetcdr(void);
  103. LVAL xlist(void);
  104. LVAL xliststar(void);
  105. LVAL xappend(void);
  106. LVAL xreverse(void);
  107. LVAL xlastpair(void);
  108. LVAL xlength(void);
  109. LVAL xmember(void);
  110. LVAL xmemv(void);
  111. LVAL xmemq(void);
  112. LVAL xassoc(void);
  113. LVAL xassv(void);
  114. LVAL xassq(void);
  115. LVAL xlistref(void);
  116. LVAL xlisttail(void);
  117. LVAL xboundp(void);
  118. LVAL xsymvalue(void);
  119. LVAL xsetsymvalue(void);
  120. LVAL xsymplist(void);
  121. LVAL xsetsymplist(void);
  122. LVAL xget(void);
  123. LVAL xput(void);
  124. LVAL xtheenvironment(void);
  125. LVAL xprocenvironment(void);
  126. LVAL xenvp(void);
  127. LVAL xenvbindings(void);
  128. LVAL xenvparent(void);
  129. LVAL xvector(void);
  130. LVAL xmakevector(void);
  131. LVAL xvlength(void);
  132. LVAL xivlength(void);
  133. LVAL xvref(void);
  134. LVAL xivref(void);
  135. LVAL xvset(void);
  136. LVAL xivset(void);
  137. LVAL xvectlist(void);
  138. LVAL xlistvect(void);
  139. LVAL xmakearray(void);
  140. LVAL makearray1(int argc,LVAL *argv);
  141. LVAL xaref(void);
  142. LVAL xaset(void);
  143. LVAL xnull(void);
  144. LVAL xatom(void);
  145. LVAL xlistp(void);
  146. LVAL xnumberp(void);
  147. LVAL xbooleanp(void);
  148. LVAL xpairp(void);
  149. LVAL xsymbolp(void);
  150. LVAL xintegerp(void);
  151. LVAL xrealp(void);
  152. LVAL xcharp(void);
  153. LVAL xstringp(void);
  154. LVAL xvectorp(void);
  155. LVAL xprocedurep(void);
  156. LVAL xobjectp(void);
  157. LVAL xdefaultobjectp(void);
  158. LVAL xeq(void);
  159. LVAL xeqv(void);
  160. LVAL xequal(void);
  161. LVAL xgensym(void);
  162.  
  163. /* xsfun2.c */
  164. void xapply(void);
  165. void xcallcc(void);
  166. void xmap(void);
  167. void xmap1(void);
  168. void xforeach(void);
  169. void xforeach1(void);
  170. void xcallwi(void);
  171. void xcallwo(void);
  172. void xwithfile1(void);
  173. void xload(void);
  174. void xloadnoisily(void);
  175. void xload1(void);
  176. void xforce(void);
  177. void xforce1(void);
  178. LVAL xsymstr(void);
  179. LVAL xstrsym(void);
  180. LVAL xread(void);
  181. LVAL xrdchar(void);
  182. LVAL xrdbyte(void);
  183. LVAL xrdshort(void);
  184. LVAL xrdlong(void);
  185. LVAL xeofobjectp(void);
  186. LVAL xwrite(void);
  187. LVAL xprint(void);
  188. LVAL xwrchar(void);
  189. LVAL xwrbyte(void);
  190. LVAL xwrshort(void);
  191. LVAL xwrlong(void);
  192. LVAL xdisplay(void);
  193. LVAL xnewline(void);
  194. LVAL xprbreadth(void);
  195. LVAL xprdepth(void);
  196. LVAL xopeni(void);
  197. LVAL xopeno(void);
  198. LVAL xopena(void);
  199. LVAL xopenu(void);
  200. LVAL xclose(void);
  201. LVAL xclosei(void);
  202. LVAL xcloseo(void);
  203. LVAL xgetfposition(void);
  204. LVAL xsetfposition(void);
  205. LVAL xcurinput(void);
  206. LVAL xcuroutput(void);
  207. LVAL xportp(void);
  208. LVAL xinputportp(void);
  209. LVAL xoutputportp(void);
  210. LVAL xtranson(void);
  211. LVAL xtransoff(void);
  212. LVAL xstrlen(void);
  213. LVAL xstrnullp(void);
  214. LVAL xstrappend(void);
  215. LVAL xstrref(void);
  216. LVAL xsubstring(void);
  217. LVAL xstrlist(void);
  218. LVAL xliststring(void);
  219. LVAL xstrlss(void);
  220. LVAL xstrleq(void);
  221. LVAL xstreql(void);
  222. LVAL xstrgeq(void);
  223. LVAL xstrgtr(void);
  224. LVAL xstrilss(void);
  225. LVAL xstrileq(void);
  226. LVAL xstrieql(void);
  227. LVAL xstrigeq(void);
  228. LVAL xstrigtr(void);
  229. LVAL xcharint(void);
  230. LVAL xintchar(void);
  231. LVAL xchrlss(void);
  232. LVAL xchrleq(void);
  233. LVAL xchreql(void);
  234. LVAL xchrgeq(void);
  235. LVAL xchrgtr(void);
  236. LVAL xchrilss(void);
  237. LVAL xchrileq(void);
  238. LVAL xchrieql(void);
  239. LVAL xchrigeq(void);
  240. LVAL xchrigtr(void);
  241. LVAL xcompile(void);
  242. LVAL xdecompile(void);
  243. LVAL xsave(void);
  244. LVAL xrestore(void);
  245. LVAL xgc(void);
  246. LVAL xerror(void);
  247. LVAL xreset(void);
  248. LVAL xgetarg(void);
  249. LVAL xexit(void);
  250.  
  251. /* xsimage.c */
  252. int xlisave(char *fname);
  253. int xlirestore(char *fname);
  254.  
  255. /* xsinit.c */
  256. void xlinitws(unsigned int ssize);
  257. void xlsymbols(void);
  258.  
  259. /* xsint.c */
  260. LVAL xtraceon(void);
  261. LVAL xtraceoff(void);
  262. void xlexecute(LVAL fun);
  263. void xlapply(void);
  264. void xlreturn(void);
  265. void gc_protect(void (*protected_fcn)());
  266. void xlstkover(void);
  267.  
  268. /* xsio.c */
  269. int xlgetc(LVAL fptr);
  270. void xlungetc(LVAL fptr,int ch);
  271. void xlputc(LVAL fptr,int ch);
  272. void xlflush(void);
  273. void stdputstr(char *str);
  274. void errprint(LVAL expr);
  275. void errputstr(char *str);
  276.  
  277. /* xsmath.c */
  278. LVAL xexactp(void);
  279. LVAL xinexactp(void);
  280. LVAL xatan(void);
  281. LVAL xfloor(void);
  282. LVAL xceiling(void);
  283. LVAL xround(void);
  284. LVAL xtruncate(void);
  285. LVAL xadd(void);
  286. LVAL xmul(void);
  287. LVAL xsub(void);
  288. LVAL xdiv(void);
  289. LVAL xquo(void);
  290. LVAL xrem(void);
  291. LVAL xmin(void);
  292. LVAL xmax(void);
  293. LVAL xexpt(void);
  294. LVAL xlogand(void);
  295. LVAL xlogior(void);
  296. LVAL xlogxor(void);
  297. LVAL xlognot(void);
  298. LVAL xabs(void);
  299. LVAL xadd1(void);
  300. LVAL xsub1(void);
  301. LVAL xsin(void);
  302. LVAL xcos(void);
  303. LVAL xtan(void);
  304. LVAL xasin(void);
  305. LVAL xacos(void);
  306. LVAL xxexp(void);
  307. LVAL xsqrt(void);
  308. LVAL xxlog(void);
  309. LVAL xrandom(void);
  310. LVAL xgcd(void);
  311. LVAL xnegativep(void);
  312. LVAL xzerop(void);
  313. LVAL xpositivep(void);
  314. LVAL xevenp(void);
  315. LVAL xoddp(void);
  316. LVAL xlss(void);
  317. LVAL xleq(void);
  318. LVAL xeql(void);
  319. LVAL xgeq(void);
  320. LVAL xgtr(void);
  321.  
  322. /* xsobj.c */
  323. void xlsend(LVAL obj,LVAL sym);
  324. void xsendsuper(void);
  325. LVAL obisnew(void);
  326. LVAL obclass(void);
  327. LVAL obshow(void);
  328. void clnew(void);
  329. LVAL clisnew(void);
  330. LVAL clanswer(void);
  331. void obsymbols(void);
  332. void xloinit(void);
  333.  
  334. /* xsprint.c */
  335. void xlprin1(LVAL expr,LVAL file);
  336. void xlprinc(LVAL expr,LVAL file);
  337. void xlterpri(LVAL fptr);
  338. void xlputstr(LVAL fptr,char *str);
  339.  
  340. /* xsread.c */
  341. int xlread(LVAL fptr,LVAL *pval);
  342.  
  343. /* xssym.c */
  344. void xlsubr(char *sname,int type,LVAL (*fcn)(),int offset);
  345. LVAL xlenter(char *name);
  346. LVAL xlgetprop(LVAL sym,LVAL prp);
  347. void xlputprop(LVAL sym,LVAL val,LVAL prp);
  348. int hash(char *str,int len);
  349.  
  350. /* ??stuff.c */
  351. void osinit(char *banner);
  352. void osfinish(void);
  353. void osinfo(char *msg);
  354. void oserror(char *msg);
  355. int osrand(int n);
  356. FILE *osaopen(char *name,char *mode);
  357. FILE *osbopen(char *name,char *mode);
  358. int osclose(FILE *fp);
  359. long ostell(FILE *fp);
  360. int osseek(FILE *fp,long offset,int whence);
  361. int osagetc(FILE *fp);
  362. int osaputc(int ch,FILE *fp);
  363. int osbgetc(FILE *fp);
  364. int osbputc(int ch,FILE *fp);
  365. int ostgetc(void);
  366. void ostputc(int ch);
  367. void ostputs(char *str);
  368. void osflush(void);
  369. void oscheck(void);
  370. void ossymbols(void);
  371.  
  372.